home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO018.dsk / FORMATTER.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  43 lines
  1. 100  REM  VOLUME FORMATTER
  2. 110  REM  BY KEITH FALKNER
  3. 111  REM VERSION 1.1, AUG 86.
  4. 120 :
  5. 130  REM DO NOT CHANGE THIS, BECAUSE
  6. 140  REM THE MACHINE LANGUAGE ROUTINE
  7. 150  REM WILL MOVE AND BE UNUSABLE.
  8. 160 :
  9. 170  IF  PEEK(175) +256 * PEEK(176) = 6656 GOTO 250
  10. 180  PRINT "The BASIC part of this program has been"
  11. 190  PRINT "changed, so the machine-language part"
  12. 200  PRINT "is no longer at the right address."
  13. 210  PRINT "The program has been destroyed!"
  14. 220  STOP : GOTO 220
  15. 230 :
  16. 240  REM MEMORY USAGE:     
  17. 250 VY = 704: REM PARAMETERS:
  18. 260  REM SLOT,DRIVE,VOLUME,RESULT
  19. 270 VM = 3072: REM $0C00
  20. 280 :
  21. 290  IF VS >0  AND VS <8 GOTO 320
  22. 300  INPUT "SLOT NUMBER  (1-7):";VS$
  23. 310 VS =  VAL(VS$): GOTO 290
  24. 320  IF VD = 1  OR VD = 2 GOTO 350
  25. 330  INPUT "DRIVE NUMBER (1/2):";VD$
  26. 340 VD =  VAL(VD$): GOTO 320
  27. 350 VL =  LEN(VN$)
  28. 360  IF VL >0  AND VL <16 GOTO 400
  29. 370  INPUT "VOLUME NAME       /";VN$
  30. 380  IF  LEFT$(VN$,1) = "/"  THEN VN$ =  MID$ (VN$,2)
  31. 390  GOTO 350
  32. 400 VY = 704: REM $2C0
  33. 410  POKE VY +0,VS: REM SLOT
  34. 420  POKE VY +1,VD: REM DRIVE
  35. 430  POKE VY +2,VL: REM LENGTH
  36. 440  FOR V = 1 TO VL:Z =  ASC( MID$ (VN$,V,1))
  37. 450  IF Z =  > ASC("a")  AND Z < =  ASC("z")  THEN Z = Z -32
  38. 460  POKE VY +2 +V,Z: NEXT 
  39. 470  CALL VM: REM FORMAT DISK
  40. 480 VR =  PEEK(VY +18): REM RESULT
  41. 490  IF VR  THEN  PRINT "OOPS! RETURN-CODE IS "VR"."
  42. 500  IF PN$ = ""  THEN  END 
  43. 510  PRINT  CHR$(4)"CHAIN"PN$